home *** CD-ROM | disk | FTP | other *** search
/ Computer Arts Interactive 4 / CARTS4.iso / mac / MiniCad 6.0.1 demo / MiniCad 6.0.1 Demo / MiniCad 6.0.1 Demo.rsrc / TEXT_132_Polyline operators.txt < prev    next >
Text File  |  1996-03-22  |  804b  |  49 lines
  1. /gs /gsave load def
  2. /gr /grestore load def
  3. /sg /setgray load def
  4. /srgb /setrgbcolor load def
  5. /slw /setlinewidth load def
  6. /str /stroke load def
  7.  
  8. /pl                % x y pl x y
  9. {
  10. transform
  11. 0.25 sub round 0.25 add exch
  12. 0.25 sub round 0.25 add exch
  13. itransform
  14. } def
  15. /setstrokeadjust where
  16.     {
  17.     pop true setstrokeadjust
  18.     /c                % x1 y1 x2 y2 x3 y3 c -
  19.     {curveto} def
  20.     /C /c load def
  21.     /v                % x2 y2 x3 y3 v -
  22.     {currentpoint 6 2 roll curveto} def
  23.     /V /v load def
  24.     /y                % x1 y1 x2 y2 y -
  25.     {2 copy curveto} def
  26.     /Y /y load def
  27.     /l                % x y l -
  28.     {lineto} def
  29.     /L /l load def
  30.     /m                % x y m -
  31.     {moveto} def
  32.     }
  33.     {%else
  34.     /c
  35.     {pl curveto} def
  36.     /C /c load def
  37.     /v
  38.     {currentpoint 6 2 roll pl curveto} def
  39.     /V /v load def
  40.     /y
  41.     {pl 2 copy curveto} def
  42.     /Y /y load def
  43.     /l
  44.     {pl lineto} def
  45.     /L /l load def
  46.     /m
  47.     {pl moveto} def
  48. }ifelse
  49.